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PDS SYSTEM 2N CASSETTE DRIVERS (SYS2NF) 
PROGRAMMED BY ERIC JAMESON 



COPYRIGHT 1976 SPHERE CORPORATION 

948 N. 489 Eft. j NORTH SALT LAKE.- UTAH S4854 

P.O. BOS 213j BOUNTIFUL. UTAH 84818 



SPHERE RESERVES ALL RIGHTS FOR THE REPRODUCTION.. 
DISTRIBUTION AND USE OF THE PDS SOFTWARE. 
NO COPIES MAY BE MADE OR DISTRIBUTED UITHOUT THE 
WRITTEN PERMISSION OF SPHERE CORP. 



THE PROGRAM DEVELOPMENT SYSTEM (PDS SYS2N> IS A SET OF 
PROGRAMS RESIDING ON ERASABLE PROGRAMMABLE READ ONLY 
MEMORY WHICH ALLOU EVEN THE SMALLEST USER TO USE HIS 
SPHERE SYSTEM AS A COMPLETE COMPUTER SYSTEM FOR THE 
DEVELOPMENT OF COMPUTER PROGRAMS. 

TOUARD THIS END.- THE 5 PDS EFROMS CONTAIN A CURSOR ■ 
BASED EDITOR.. A MINI -ASSEMBLER.. AND THE SPHERE DEBUGGING 
AID <SDA:-, AS NELL AS A SET OF UTILITY ROUTINES TO DO 16 
BIT MULTIPLY AND DIVIDE, ASCI I-TO-BINARY, AND 
BINARY-TO-ASCII ROUTINES.. AND ROUTINES TO DO- 
INPUT AND OUTPUT TO THE AUDIO CASSETTE. 



THE SYS2N SOFTWARE IS AN UPGRADE OF THE FDS V3A 
<V3N & V3D> SOFTWARE DESIGNED TO RUN UITH THE CASSE T TE 
SYSTEM. THERE ARE TUO VERSIONS OF THE SYS2 SOFTWARE: 
SYS2N UH1CH RUNS UITH THE NEW KEYBOARD AND THE SYS2A 
UHICH RUNS UITH THE ORIGIONAL <KBD/1A> KEYBOARD. THE 
MAIN DIFFERENCE BETWEEN THE V3A AND SYS2 VERSIONS ARE 
THAT A FIFTH EPRQN HAS BEEN ADDED AND THAT THE MINI- 
ASSEMBLER HAS SEEN DELEATED AND REPLACED UITH A SET OF 
COMMANDS TO DO LOADING AND DUMPING OF CASSETTE TAPES. 




The SY32NF prom is a version of the SYS2N cassette prom with a 
software bug fixed. This bug would cause the next block of a 
multiblock read to be skipped if the checksum on the preceeding 
block was a 16 and the tape had not been previously used. The 
jeha nge is on pcge 1,0 w here the ESC test and branch now branches 
to RDHDRl instead of RDHDR7 
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00051 
00052 
OP'^53 
~4 
0>jv55 
00056 
00057 
00053 
0005* 
00960 



0090 



RQ062 
00063 
00064 
00065 
00066 
00067 
0006S 
00069 

99071 
90972 
9997 J. 
00974 
99975 
99976 
99977 
09&73 
9f *5 
9h v £9 
999 SI 
999S2 



999S4 
OO0S5 
99936 
0OOS7 
90033 
99939 



9994 
9004 
0005 
0006 
0006 



0003 
0iW9 

06Qfi 



0O9E 

9911 

0011 

0014 
0016 

001* 
0010 



0020 

0922 
0024 
9926 
992fi 
992C 
0O2E 
9919 
9032 
0O33 
0P35 
9033 

003* 

0035 
O03C 
003E 
9040 



* 
* 

TMP 

TMF1 

ARB 

API 

AR2 

ARA 

AR1 

ARO 

DIGIT 

CSTATS 

OUTENO 

BUFADR 

SUFENO 

OUTSUF 

CASNUM 

SRCADR 

DSTADR 

ENC'MEN 

CSRFTR 

BUFPTR 

SUFFLO 

BUFFHI 

SCNFTR 

SRCRSM 

ONDVAL 

SYMVAL 

BRKSRV 

SRKRDR 

EC- IT 

BLKNAM 

IOBUFF 

RCIRNO 

NOFRNT 

BLKTYP 

BFRFTR 

BFRSZE 
PCVRL 



MEMORY MRP 



ECU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$99 
$92 
$94 
$94 
$95 
$96 
$96 
$97 
$93 
$99 
$9* 
$9C 
$9E 
$11 
■$13 
$14 
$16 
$1A 
$1C 
$1E 
$29 
$22 
$24 
$26 
$2A 
$2C 
$2E 
$39 
$32 
$33 
$35 
$33 
$3R 
$3B 
$3C 
$3E 
.$49 



16 BIT RCC. PSEUDO REG B. 
_HI BYTE OF RRB. 
_L0 BYTE OF RRB. 
16 BIT RRITH PSEUDO REG R. 
-HI BYTE OF RRR. 
-LQ BYTE OF RRR. 
BYTE USED BY RSCBIN FOR TMP. 
CRSSETTE I-Q STATUS BYTE. 
END OF OUTPUT SUFFER TEXT. 
STRRT OF I/O SUFFER <FTR) 
PTR. TO END OF I/O BUFFR. 
STRRT OF OUTPUT BUFFER. 
PHYSICRL CRSSETTE NUMBR. 
SOURCE FOR TEXT MOVES. 
DEST. RDDR. FOR TEXT MOVE. 
LRST RDDRES OF RERL MEMORY. 
PTR TO CURSER ON SCREEN. 
TEMP PTR USED BY OUTSTR. 



PTR 
FTP 
PTR. 
PTR 
HRS 



TO END OF LOU EDIT TXT. 



TO STRRT OF HI TEXT. 
TO BUFFRD TXT STRRT. 

TO RSSMSLR SOURCE CODE. 

ASSMSLR OFERND VRLUE. 
VALUE PUT IN RSSM. SYMTBL. 
TEMP SAVE FOR BRKPT DRTA. 
ADDDRESS OF BREAKPOINT. 
9 IF EDITOR IS NOT RUNNING. 
CASSETTE SLOCK NAME. 
1-0 BUFFER FOR DEBUGGER. 
SYS2N CASSETTE AC I A ADDR. 
CASSETTE NAME PRINT FLAG. 
CASSETTE BLOCK TYPE CODE. 
ADDR. OF 1-0 BUFF. FOR CASS. 
LENGTH OF CASS. BUFFER. 
PROGRAM COUNTER FOR ASSM. 



99091 

99992 
99993 
90994 
0'3fi < ~5 
00096 
00997 
09099 
00099 

Qn< i»0 
C ~'± 

o\n92 
00193 
9 





* 


FOLLO 


WING ARi 




* 






26F9 


TIMEA 


EQU 


$26F0 


99B1 


ON 


EQU 


$B1 


9951 


OFF 


EQU 


$51 


00O3 


ETX 


EQU 


$03 


0016 


SVN 


EQU 


$16 


0017 


ETB 


EQU 


$17 


0918 


ESC 


EQU 


$18 


0954 


ERR 4 


EQU 


$'T 


0043 


EFP5 


EQU 


$-c 


5161 


TIME 


EQU 


20333 


0009 


TIMCNT 


EQU 


9 



VARIABLE VALUES. 

TIMER COUNTER. 

AC I A VALUE TO TURN ON CASS. 

AC I A VALUE TO STOP CASS. 

END-QF-TEXT. 

SYNCHRONISE. 

END-OF-TFANSNISSION-SLQCK. 

EXCAPE TO NONSTANDARD HDR. 

SET FOR TRAILER ERROR. 

SET FOR CHECKSUM ERR. 

TIME CNTR FOR 1/4 SEC. 

TIMES FOR 2 £ 1/4 SECONDS. 
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00105 
00106 FBOO 

0\ JS 

0010? 
00110 
00111 
0O112 
00113 
0O114 
00115 
00116 

00117 
00US 
O0119 

00120 
00121 

0O122 

00123 

0O124 
O0125 
0O126 
00127 
00128 
0O129 

00120 
00131 

C- "?2 
^ >3 
00134 
00135 
09136 
0O137 
O013S 
O0139 
00140 
00141 
06142 
00143 
0O144 
0O145 
0O146 
00147 
00143 
0O149 

0O15O 

00151 



[52 
00153 
00154 
00155 
0O1 56 
H 57 



5S 



* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 

* 
* 
* 

* 
* 
* 

* 
* 



PDS SYSTEM 2N CASSETTE DRIVERS 
ORG $FBO0 

CASSETTE 1-0 DRIVERS 

THE CASSETTE DRIVERS LOAD AND DUMP A BLOCK OF DATA 
TO AND FROM THE CASSETTE. THEY HANDLE BOTH THE HEADER 
AND TRAILER FORMATTING. 

THE DRIVERS ARE SET UP AR A SET OF SUBROUTINES 
CALLED BY THE EXECUTIVE OR THE USER'S PROGRAMS. 



LOU MEMORY ADDRESSES USED BY THE DRIVERS ARE: 



CSTATS AT 09 

BLKN AM AT 33 

ACIANO AT 3S 

NOPRNT AT 3A 

BFRPTR AT 3C 

BFRSZE AT 3E 



USED TO STORE INPUT ERR CODE. 
2 CHAR. NAME OF BLOCK. 
PTR. TO THE AC I A CURRENTLY USED. 
PRINT FLAG FOR BLOCK NAME. 
START OF CASSETTE 1-0 BUFFER. 
END OF CASSETTE DATA BUFFER. 



THE DRIVERS CAN BE RUN FROM THE PDS-SYS2N SOFTURRE 
SYSTEM.- HHICH CONTAIN THE CASSETTE LOAD AND DUMP 
COMMANDS IN THE EXEC, OR FROM THE PDS-V3A, INHERE THE 
DRIVERS ARE CALLED THROUGH THE DEBUGGER. 

THE DRIVERS DISPLAY PERTINENT DATA ON THE SCREEN 
HHEN WRITING OR READING FROM THE CASSETTES. ON A HRITE, 
THE CHARACTERS BEING HRITTEN ONTO THE CASSETTE ARE 
DISPLAYED IN THE SECOND CHARACTER POSITION FROM THE 
UPPER RIGHT HAND CORNER OF THE SCREEN. ON ft READ.. THE 
CHARACTERS BEING READ IN ARE DISPLAYED IN THE UPFER 
RIGHT HAND CORNER OF THE SCREEN. THE NAME OF THE BLOCK 
CURRENTLY BEING READ OR SEARCHED OVER IS DISPLAYED ON THE 
RIGHT HAND SIDE OF THE SECOND LINE. THE ERROR CODE FOR 
A READ IS DISPLAYED ON THE RIGHT SIDE OF THE THIRD LINE. 
NO CHANGE IN CHARACTER MEANS THAT THE READ HAS 0. K. 
A "C" MEANS THERE HAS A CHECKSUM ERROR ON THE BLOCK. 
A "T" MEANS THAT THE URONG NUMBER OF BYTES HERE READ 
INTO THE BUFFER (TRAILER ERROR >. THIS MOULD OF COURSE 
IMPLY A CHECKSUM ERROR ALONG WITH THE TRAILER ERROR. 

THE CSTATS (CASSETTE STATUS> BYTE HILL CONTAIN A 
IF THE BLOCK READ IN HAS 0. K. IF IT HAS A BAD READ, IT 
HILL CONTAIN A 54 FOR TRAILER ERRROR OR A 43 FOR A 
CHECKSUM ERROR CODE UPON EXIT FROM THE ROUTINE. 

SETTING THE NOPRNT (NO PRINTING) FLAG TO A O HILL 
STOP THE DISPLAY OF CHARACTERS ON THE SCREEN DUPING 
CASSETTE READ AND URITE, EXCEPT FOR THE T * C ERROR 
CODES, UHICH ARE ALUAVS DISPLAYED UHEN THEY OCCUR. 



00 ISO 
00161 
00162 
(* ~ 63 

1 S4 
00165 
00166 
00167 
00 168 
00169 
00170 
00171 
Q0172 



's>~3 fji 



00174 

00175 

00176" 

00177 

001 78 

00179 

00 ISO 

00181 

00182 

001S3 

00184 

00185 

00186 

001S7 

£, IS 

00190 
00191 
00192 
00193: 
00194 
00195 
00196 
00197 
00198 
00199 

00200 

00201 

00202 

00207 

00204 

00205 

0020c 

002&7 

00253 

00209 

00210 

00211 

00212 



+ 

* 
* 
* 
* 

* 

* 
* 
* 
ft 

* 

* 

* 

* 

* 

* 

* 
* 



j F TH£ FIR5 T BYTE OF BLKNAM (BLOCK NAME) IS * *.. 
WHEN THE READ BLOCK ROUTINE 15 ENTERED, THE NEXT BuJLK 
WILL BE REM FROM TAPE NO MATTER UHAT THE NAtlc Or THE 
TfiFE B'CM IS. ON THE SYS2N EXEC, A CONTROL SPACE 
CHWTER CAN SE TYFED IN AS THE FIRST CHARACTER OF THE 
NAME 'IN THE LOAD BLOCK COMMAND. THUS, A CCNTL L.XlMTL 
SFACEXX) MOULD READ IN THE NEXT BLOCK ON THE TRPc 



THE TAFE FORMAT IS: 
SVN 
SYN 
SYN 

ESC 

HI BYTE OF 16 BIT BLOCK LENGTH 

LOH BYTE OF BLOCK LENGTH 

FIRST CHAR OF BLOCK NAME 

SECOND CHARACTER OF NAME 

DATPI 



DATA 

ETB 

CHECKSUM 

CHECKSUM 

CHECKSUM 

CHECKSUM 



TH? CHEWS! IM I* CALCULATED FROM THE DATA, UHICH 
IS READ IN FROfl I THE CASSETTE BUFFER RESIDING IN MEMORY. 



THE FORMAT FOR THE CASSETTE BUFFER IS: 



fBFRPTR 

c|b|s|s[e|t|t|e| 



BFRSZE 



BU 



PER 



I 



* 

* NHEN DATA IS READ IN, THE READ ROUTINE SETS ; 'BFRSZE' 

* TO POINT TO THE LAST CHARACTER READ INTO THE BUFrER 

* NOTE THAT THERE IS NO OVERFLOW CHECK NHEN DATh lb READ 

* INTO MEMORY. ON OUTPUT TO THE CASSETTE, ^HS _§LOCK 

* LENGTH IS CALCULATED FROM THE BFRPTR AND BFRsZE POINTERS. 

* 

* THE READ BLOCK AND URATE BLOCK ROUTINES AUTOMATICALLY 

* TURN ON AND OFF THE CASSETTE. 



'0236 



PDS-SYS2 

* THE" ADDRESSES OF THE ROUTINES FOR CONTROLLING 

* THE CASSETTE ARE RS FQLLQUS: 

* INTLZ - FBQ9 : INITIRLIZES THE ACIA FOR USE _._^ x „ 

* URTBLK - FB2D : URITES A FORMATTED BLOCK TO L^^Te 

* RDPLK - FS91 : READS IN A FORMATTED BLOCK OF TARE 

* ~ URTMOD - FB2F : URITES R BLOCK TO A RUNNING CASSETTE 

* PDMOD - FS*! : READS A BLOCK FROM A RUNNING ThFE 
I CfiioUT - FB62 : URITES OUT ONTO TARE THE BYTE IN A. 

* CASIN - FB7E : READS IN A BYTE INTO ACCUM. A 

* TURNON - FB77 : TURNS ON THE CASSETTE DRIVE 

* TRNOFF - FSBO : TURNS OFF THE CASSETTE DRIVz UHEN 7He 

* ™ ROINTR TO ACIA IS PASSED IN THE X REu. 

* NOTE THAT ALL THE ABOVE ROUTINES ARE SUBROUTINES THAT 

* ARE ENTERED BY A JSR OR BSR CALL. 

* 
* 
* 

* USING THE CASSETTE DRIVERS. 

* IF THE EPROHS ON THE CPU SOAR* ARE THE SYSf 1 OR THE 

* SYS2D PROMS, THE DRIVERS ARE UzED BY THE {^{NITIA'.U^^ 

* L (LOAD FROM CASSETTE) AND S <STQRE_ ONTOLAj^zTTt) 

* COMMANDS THAT ARE A PART OF THE iVi-2 E*EL-UTI\-E. 

* IF THE CPU PROMS BEING USED ARE THE P^jrV^OR THE 

* PDS-V2N OR V3D PROM SETS.. THEN THE USER MLhT^zTUP Trit 

* POINTERS AND CALL THE RQUJINSS HIMSELF* ILsJNb Thr 

* DEBUGGER ON THE CPU PROMS. <NOTE THAT THE v-fl flM> ^N 

* DEBUGGERS VARY.. FOR INSTANCE THE V3R W COHMNy I* A U 

* UHILE THE V3N GO COMMAND IS A "CNTL l>". REFER TO Trt^ 

: "^ThT^StThI^W ft IS OPEN THE L«J WCFVLeCtTm* 

: SH °M* l:xlb'foiTr L % S ^o for the first cassette m> 

* Til Pilh'l Fiio THE SECOND CASSETTE DRIVE. 
t T ° fl st?PLE PROGRAM TO CALL THE ROUTINES SHOULD "CUB* 

* URITTEN "'OPEN LOCATION 909. TYPE IN THROJJ^H^EDEBUu^R 

* THE INSTRUCTIONS JSR BDXX.. JMP FE4F. XX lb THE «^^-?' ■ 

* OF THE DESIRED DRIVER ROUTINE.. I.E. 00 F ?V^J/ — -^^ 

* OR 91 FOR READING A BLOCK OR 2D FOR WRITING J BLUL*. TH,±.. 

* TO INITIALIZE AN ACIA, ACIANO MOULD BE LORD rj>»/™ T t 

* rur anncfcc HP TVF ACTA «NO THE USER MOULD THtN JUMP TO IH. 

* ROUTINE [ AT 4* WoPENING900AND JUMPING TO IT UITH 

* THE 'G' COMMAND THE ROUTINE UOULD BE AS FOLLOW: 
* 
*CALL 900 BD JSR 

* O01 FB HI BYTE OF ROUTINE AADfRcbS 

* 902 00 LOW BYTE OF DRIVER ADDRESS. 
pno.ro * 5>03 7E JNF 

%;^% * 904 FE ADDRESS OF THE DEBUGGER ON 

edZ% * 905 4F THE PDS VIA PROM SET 



«. . 
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THE ACIA MOULD NOV BE INITIALIZED ANC ; C^ ^OL MOULD 
« ufltT ppTMpAvcn tv) rwr [jESUGGER. TO RcAD IN H bLULs* 

* ?2e NAN-MOU BE fcr IW SLKWflM AND LOCflTIOW 902 MOULD 

* S£ CHflNGcD TO : ?! THE USER WOULD THEN JUMP TO 500. 

* tv> TFsT rwr rflssETTE. SET PFPPTP TO £0*0 AND PFRSZE 

* _,. P I2 F THI? WILL" flLLHW THE USER TO WRITE OUT DATA 

t Soothe fo^th" 1 fife's isth and ^™>™? P *£ ™* Tfl 

* ,4t ftrcpiflu flvry TW-N <?£flr> JT SACK ONTO The DliPLAV. DA/H 
I rll RF T^ ONTO THE WEEN fiV OPENING- R LOCATION MITH 

t the IIsJgges Sro Moving ^cursor around r ™f/<*f » 

* TO CHflWGE THE CHARACTERS. THIS JJ ^POiijISLE SELfl '-*f™£ 

* ROUTINE TO INPUT AN ADDRESS CALLS THE EDITOR FOP INPUT. 

* tuf nprurp ROUTINE* CAN ALSO £E USED TO PERFORM 

* M 1^^ MODEM OR TELETYPE. THE MAW HARARE 

* DIFFERENCE BETMEEN THE CASSETTE : AND ^^"^'^ ™L[ HE 

* 4',-c-pttp rtfls A DIVIDE BY 16 CLOCK hND lb UNIDIRELTIQNRL 
t «2?f F THF SnDEW Try HAVE ft DIVIDE BY 64 CLOCK AND CAN BE 
t q^lf-mONAL BECAME OF THE CLOCK CHANGE THE ACIA WUbT 

* §E D TURwS ON «I7W A DIFFERENT VALUE K™*?- J|f n % E *#ft 

* np WRITE SLOCK ROUTINES ARE ENTERcD. TO TURN ON THEALIft 
' * STORE THE VALUE 'S2' INTO LOCATION FQ50 OR FO|0 OMtE 

K will Produce , rT^UP^^^ *«*« 

stop bHs. If J ^^TO^'iftsLOcFoF DATA FROM AJ10DEM0RTTY 
the TTY operates * WU , L£> rws R c <-p L AC£D BEFORE THE ^rtLL' ROi/^INE-/. 
on a different * SFA £>£ ?S L0X AC7AN0 LOADS ^.f.g' J T f.| 

code , . ook up : « os g lw p « f ^ 5 -^f S^Jfe acm. 

S sec'tttf *e ; ^« # ^^WlITf CHAR FROM KEYBOARD. 

? chip description * rmW #£ EkotfT TYPES OUT CHAR ON PRINTER. 

,'| appendex. * THE RS2 ?2 SHOULD HAVE BEEN STRAPPED TO HALF DUPLE*. 

g * 

\ * rT rc to BF STREWED THAT THE RELIABILITY OF THE 

i : cfisSivc&imukKPsms on the *wott of the 

i » TP1HMEP ON THE Slfl SOflSft IE TH= TRMHER lb OHI* 

:i * SSfimffiOT mi mis will not read in wopeblv. u s %]^ 

- * villi; tuc rm-'LLrwrnoE TO R&JUST THE TffMWeR. IT <-«« hlsu 

£ * &'& mSrP^RV P&WINO IN rt STRING OF SINGLE CHfl/WCTEfiS 



I : feSSJS ^S^f < fT H «is is. 

=;- * fl j 5 p ^FE7E LOADS A MITH ^A^cTJE LHA*. 

%t * JSR $FCAD FDS-V2A FUTCHR *0UT™f- ' 

"-.i * TST fFOOl TESTS KE'r30ARD FOP*^- ' 

; - • * bpl fl ^KIPS SAC^ IF NO INPUT. 

-^ t V H c fl eoVP ROUTINE MOULD INPUT CHARACTERS UNTIL A KEY 

%' s * ON~THE KEYBOARD MAS DEPRESSED. 
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903 

t( 
Qv^ 
993 
003 

eoi 
001 

903 



TO 

71 



3*4 

25 

26 

w i 
7rf 



FS0O 
FS^'P 
FB94 
FB06 
FBOS 
FSOA 



DE 
S6 
ft? 



ft? 



23 
12 
Q9 

51 

00 



* 

INTLZ 



INTLZ INITIALIZES THE ACIft CONTROLLER FOR 
A SPECIFIC TfiFE UNIT ftT MOUNT TINE. 



LDX 
LDft 
STft 
LDft 
STft 
RTS 



ft 
ft 
ft 
ft 



ftCIftNO 
#$13 
0, X 
#OFF 
0.. X 



X GETS ftCIft ADDRESS. 
RESETS THE ftCIft. 

SETS ftCIft TO 

/IS 2 STOPS. BIT FORMAT. 



00340 

B0341 

00342 

00343 

00344 

09345 

00346 

90347 

00343 

99349 

09350 

09351 

00352 

0O352 

00354 

90155 

£ ( "6 

99*57 

00353 

90359 

09361 

99362 

00363 

0O364 

00365 

90366 

09267 

00263 

90269 

09370 

09271 

90272 

00273 

Q03 7 4 

00375 

00376 

00377 

09273 

00379 

C t l 

'-• *J w V. C 

00232 
00334 



FBOS 

FB0O 

FBOF 

FB11 

FB12 

FB15 

FBI? 

FB19 

FEUS 

FB1D 

FB1F 

FB21 

FB22 

FB24 

FB26 

FS2S 

F32ft 

FB2C 



S6 
SO 
3D 
3D 

36 
3D 
96 
D6 
DO 
92 
3D 
17 
3D 



16 

53 
51 
4F 
IB 
4B 
c'c 
2F 
3D 
3C 
41 

3E 



> SO 3ft 



96 
3D 
39 



34 
so 



* 
* 

NRTHDR LDft ft 
BSR 
BSR 
BSR 
LDft ft 
BSR 
LDft ft 
LDft B 
SUB B 
SBC ft 
BSR 
TBft 
BSR 
LDft A 
BSR 
LDft A 
BSR 
RTS 



URTHDR FORMATS THE HEADER ON THE TAFE. 



263 FB2D 3D 43 

FS2F C6 09 
FB31 CE 5161 
FB34 09 
F335 26 FD 
FB2? 5ft 
FS23 26 F? 

FB3A SO 
FB2C SD 

275 FS3E 36 
76 F340 SO 
FS42 17 
FS43 3D 
FB45 3D 
FS4' SO 
FB49 SD 



FB4B SD 
FB4D 29 



CF 

10 

1? 
20 

ID 
IS 
19 
17 

63 



#5V'W 

CASOUT 

CASOUT 

CASOUT 

#ESC 

CASOUT 

BFRSZE 

BFRSZE+1 

BFRPTR+1 

BFRPTR 

CASOUT 

CASOUT 

BLKNRM 

CASOUT 

BLKNAM+1 

CASOUT 



PUTS SYNC CHARS ONTO TAFE. 



FOLLOUING OUTFUTS LENGTH. 
LOADS LO BYTE OF END FTP. 
SUSS LO BYTE OF BEGIN PTR. 
SUBS HI BYTE OF START PTR. 
OUTPUTS HI LENGTH BYTE. 
LOADS LO BYTE OF LENGTH. 
OUTPUTS LOU LENGTH BYTE. 
PUTS OUT NAME OF BLOCK. 



PUTS OUT LAST OF NAME. 
RETURNS BACK TO URTBLK. 



# 

URTBLK 
* 

URTNOD 

TIME! 

TIME2 



URTBLK URITES OUT A BLOCK OF DATA TO THE CASSETTE. 

BSR TURNON TURNS ON THE CASSETTE. 

FOLLOWING NAITES FOR CASSETTE TO GET UP TO SPEED. 
LDft B tfTIMCNT LOADS TIME LOOP COUNTER. 
LDX #TINE MASTER TIME LOOP <±/4 SEO. 

DEX COUNTS CYCLES OF LOOP. 

BNE TIME2 TESTS FOR FIRST TIME OUT. 

OEC B - COUNTS TIMES IN LOOP. 
BNE TIME! SKIPS BACK UNTIL DONE. 

IS NQU FINISHED. 

URITES HEADER ON THE TAPE. 

URITES OUT BUFFER DATA. 



THE TIME LOOP 
BSR NRTHDR 

BSR URTSFR 



* 
URTTLR 



FOLLOWING URITES THE TRAILER OUT ONTO THE TAFE. 



LDA 
BSR 
TBA 
BSR 
BSR 
BSR 
BSR 

END 
BSR 
RTS 



A PETB 
CASOUT 

CASOUT 
CASOUT 
CASOUT 
CASOUT 
OF TRAILER 
TRNOFF 



OUTPUTS END-OF-BLOCK CHAR. 
ETS IS DISFLAYED AS A "U". 
A GETS CHECKSUM FROM S. 
OUTPUTS THE CHECKSUM. 
OUTFUTS TRAILER FILLER 
BYTES. 

'URITIMG ROUTINE. 
HftLTS CASSETTE DRIVE. 



FRGE 063 FDS-SYS2 



003S7 








* 


URTB 


!FR 


NRITES 












BUFFER 


ONTO Ti 


003-90 








* 








00391 


r-4£ 


5F 




URTBFR 


CLR 


B 


- 


00392 


FS4F 


DE 


30 




LDX 




BFRPTR 


00393 


FB51 


R6 


00 


UBFR1 


LDR 


R 


0, X 


00394 


F553 


OF 


tf>? 




STX 




tup 


00395 


FS55 


3D 


OB 




BSR 




CRSOUT 


00396 


FB57 


13 






RSR 






00397 


FS5S 


16 






TRB 




-■■ . ". 


00393 


FS59 


DE 


00 




LDX 




tup 


00399 


FB5S 


9C 


3E 




CPX 




BFRSZE 


00400 


FB5D 


■■>■? 

w 1 


17 




BEQ 




C50EXT 


00401 


rccr 


OS 






INX 






00402 


FBSO ' 


g£ 






BNE 




'HBFR1. 








<^^> 









OUT THE CONTENTS OF THE 
THE CRSSETTE TRPE. 



I NIT CHECKSUM COUNT. 

RCIR CONTROL MASK. 

LOWS CHRP. FROM BUFFER. 

SRVES BUFFER PTR. 

PUTS CHRP ONTO CASSETTE. 

R GETS R+B. 

B GETS R+B. 

RESTORES FTP. INTO BUFFR. 

TESTS IF BUFFER EMPTY. 

EXITS UHEN EMPTY. 

INC POINTER. 

SKIPS BRCK IF CHRRS. LEFT. 



00404 








* 


CRSOUT 


TRKES 


00405 








* 


ONTO THE CRSSi 


0040S 








* 






00407 








* 






0'": "is 


FB62 






CRSOUT 


PSH R 




Ok 9 


FS63 


DE 


33 




LDX 


RCIRNO 


00410 


FS65 


ss 


02 




LDR R 


#2 


00411 


FB67 


R5 


00 


CRS01 


BIT R 


0, X 


03412 


FS69 




FC 




BEQ 


CRS01 


00413 


FSSB 


J2 






FUL R 




00414 


FBc'C 


R7 


01 




STR R 


1, X 


00415 


ESSE 


70 


003R 




TST 


NO PR NT 


00416 


FB71 


2~? 


03 




BEQ 


CSOEXT 


00417 




87 


E01E 




STR R 


SE01E 


0041S 


F376 


39 




CSOEXT 


RTS 





SRVES CHRP TO RERD OUT. 
X GETS PHYSICAL RCIR RDDR. 
LORDS CONTROL TEST BITS. 
TESTS IF RCIR BUFFER EMPTY. 
LOOPS BRCK UNTIL RERDY. 
GETS ORIG CHRP. 
STOPS CHRP. INTO RCIR SUFFER. 
TESTS IF PRINTOUT RLLOUED. 
SKIPS PRINTING IF R 0. 
DISPLAYS CHRP ON SCREEN. . 



00420 
0fi421 
00422 

00423 FB77 DE 33 

00424 FB79 S6 SI 

00425 FS78 R7 00 

00426 FB7D 39 



* 



TURNON TURNS ON THE CASSETTE DRIVE. 



TURNON LDX RCIRNO 

LDR R #0W 

STR R 0,X 
RTS 



LORDS CRSSETTE RCIR RDDR ESS. 
TURNS RCIR ON. 



J£ 009 FDS-SYS2 

4 *>* * CASIN REIMS IN A CHARACTER FROM THE CASSETTE TRPE 

s-.'q • * INTO THE A ACCUMULATOR. 

•£■1 * 

t ?"? FS7F f-E 3S CRSIN LDX ACIANO X GETS THE ACIA RDDRESS. 

4 ~4 ppcr, o»- Q1 i_c.,ft fl #1 LCWflS r£S7 bite. 

•*?S ^-"'2 R5 00 CRSIN1 EIT R 0.- X TESTS IF fiCCJfi 8UFFR FULL. 

-Po FBS4 27 Ffi BEQ CASIN1 SKIPS BRCK IF NOT IN VET. 

4 V,< F q,> 7 ^ l L £>fl fl i,X LOfiC'S IW CHflr? FSCW TRPE. 

4 ?g r^s rD »U"5"fl TST NOPRNT TESTS IF PRINT IS OFF. 

4*1* FSSS -V 02 £Et? CINEXT SKIPS DISPLAYING IF O. 

440 FSF-D S? E01F STR A $E01F DISPLAYS CHR ON TV. 

441 FB90 39 CINEXT RTS 



, 44 -- * RDBLK READS IN R BLOCK FROM THE CASSETTE 

.444 * TAPE INTO SUFFER MEMORY. 

•445 * 

<447 F3'=>1 SD E4 RDSLK BSR TURNON TURNS ON TAPE DRIVE. 

,440 pq-z;j >?£> 2" RDMOD BSR RDiiDR READS IN THE HERDER. 

144a ,=kc- SD 5'-=» BSR RDSFR RERDS IN DATA INTO SUFhER. 

■ j^ "" " * FiVJ-ONING READS IN TRAILER AND CHECKS CHECKSUM. 

;'^j F z* 7 4f RDTLR CLR A - LOADS A FOR A GOOD READ. 

' ■':■ cdco q 7 qq sjtf fl CSTATS SETS STATUS BYTE TO NO ERR. 

,_yf pqa^ S'f r? BSR CAS IN INPUTS END-OF-SLOCK CHAR. 

)4 54 Fef*r hi ±? CMP A #ET3 ETS DISPLAYS AS A "W". 

-^ -^:-r ? r fi 4 BEQ RTLR1 SKIPS IF NO ET3 ERROR. 

- ?4 I : ;- FBR0 ,q. - 54 L£>;^ fl #£/?/?4 LORDS TRAILER ERROR CODE, 

i&i? F~*-"' £fl ar SFr) FTLF2 SKIPS TO STORE ERROR LODE. 

^I T o F |q4 c/> r>g ^TLFi ESF CASIN READS IN CHECKSUM. 

-, 4 =- 9 -c rt .j- r-i ££rt TESTS CHECKSUM. 

:46Vt F5S7 27 Ctr £EQ TRWOFF SKIPS IF OK. 

14 ,.-.f FB p Q S6 47 LDA A ZERR5 SETS CHECKSUM ERROR LODz. 

W2 F5fl g 057 0a £TLF2 STA A CSTATS SETS ERROR STATUS BVTjz. 
*.4*3: FEW B7 E*5F STA A SEQ5F DISF. ERR CODE ON bi-ncEN. 

34^4 *" " * END OF TRAILER READ IN. 

I4t7=>- * FOLLOWING TURNS OFF THE CASSETTE DRIVE. 

: , 4 ._ : ;- F3 pa S6 s± TRNOFF LDA A #L"FF LOADS COMMAND TO TURN 

5467 FES2 A7 00 STA A 0, X OFF ACIA CASSETTE DRIVE. 

54 SS FSS4 39 RTS - 



+ 0471 

00-172 

0047$ 
0-. : ~74 

II •-■' 

■* 76 
0-j4: 3 

i. V •*. - 

004 52 
004SC 
004S4 
CQ43S 
Ov4*£ 
004*7 
004SS 
•jy! -i :£ j? 
0U4SQ 
004S1 
004R2 
t. '- ; *■*• j^ ■-•* 
L : 04R f 

004RS 



" ' " " FR 

CI 
18 
16 



re-el 

>*~ C t-' C 

Fir'fi* 
rBSF 
FECI 

FBC4 
FSC6 
FtCS 
FSCft 
FSCC 
FBCE 
FEDO 



SI 

2S 
or, 

SI 



— — li. 4 


FEDS 


r z i'O 





;>;•? 



of 

so 



B3 

CD 

sc 

SF 

Z£ 



R3 
ZR 



r c :•■ ■:• 
r c '■;.■■& 

FBB.Z 



rz-zt 
rr.PR 



F, T ££. 

re- se- 

•^ ■■ * . — . .— . 

L-'i. ■-■.> 

.-* . • . -. i— 

■-■ * T-J. 



RDHDR F[r: . S THE ST # RT QF THE - LGCK Qn THE TnpE 
FIGURES THE BUFFER END RND CHECKS THE NRNE. 



* 
* 
* 

RDHDR BSR CRSIN 

RDHDR1 CMP R 3SYN 
BNE RDHDR 



FOLLCNING FINDS THE 
STRRT OF THE HERDER. 



•j RHDR1 



BSR 
CUP R_ 
ENEi 
~£SR 
TftS 

esR 



CRSIN TESTS FOR HERDP CHRP. 

J£SJZ STRRT-OF-HERDER. 

ILtiC'R] GOES BRCK IF NOT GOOD HDR. 

CRSIN RERC'S IN HI BYTE OF LEN. 

SRVES HI LENGTH BYTE. 
CHS IN INPUTS L0 SIZE (LEN) SYTE. 

ROC- R BFRFTR+1 FORMS POINTER TO THE 
RDC 8 BFRFTR TOP BYTE OF THE BUFFER. 
STR R BFFSEE+1 SRVES THE HI BUFF. PTR. 
SIR B BFRSZE TO THE CRSSETTE BUFFER. 

RERDS IN BLOCK NRNE. 
SRVES FIRST CHRP OF NRNE. 
RERD IN SECOND CHRP INTO R. 



BSR . CRSIN 

FSH R - 

BSR CRSIN 

Ll-R B NORRNT 

FUL B - 

BEQ RHDR1 

Si'R R $EBZF 

TST SLKNRM 

BEQ RH0R2 

CHF B BLsNRn 

BNE RC-HDR 



TESTS IF PRINT IS OFF. 
RESTORES FIRST NRNS CHRP. 
SKIPS IF PRINT FLRG IS 0. 
C-ISPLRYS BLOCK NRNE ON 
THE CRT SCREEN. 
TcSTS. IF NRNE IS CHECKED. 
SKIPS IF NO NRHE CHECK. 

'-•r ;>rr,";c. 



TESTS FIRST CHRP 



y 2i- CR 



RHDR2 



SKIPS BRCK IF 8RZ NRilE 
CNR R BLKNRN+1 TESTS SECOND NnriE CHRP, 
itc kvnL;-* jKIrb c.tL-a. ir tihU ar.r.c 

ft i !-► 



ZJF1 ? 



ps-- i 



QC505 
J0506 
00507 






ROSFR 'RERDS DRTR INTO THE NENORY BUFFER FRC, 
i HE CR^sETTE. 



00 SOS FSEC 5F 

0;<I2S F3ED DE cC 

JOViO FSEF DP 00 

'.'•''.V; rp-J, SO SB 

'-"- I'll' .-^.-w DE 08 { 

O-Jtll FCF5 R7 00 



RDBFR CLR B - 

LOX BFRFTR 

RSFR1 STN TaF 






BSR 



CRSIN 



'■J0?±j -i-r.: 



.'-•_•• F8R 



27 EE 



OS 
■J 51 J F2FE 26 EF 



LDK 




TMF 


STR 


R 


Q,X 


RSR 






TRB 






cf:< 




BFRSZE 


BEQ 




RHDR2 


INN 






BNE 




RBFR1 


END 







I NIT S FOR CHECKSUM, 

LORDS STRRT OF BUFFER. 

R GEXS CHRP RERD IN 
>. Uci-. BUFFER PTR. 

STOPS CHRP INTO BUFFER. 
R '-E7S R+3. 
3 GETS R. 



■en 1-UL.L.. 



TESTS IF B> 

skips to skit if rll is 
inc to ne::t chrp. posit in. 
goes crck if rny left. 



a*. 



